SET DELE OFF
F1='COMPANY'
F11='NMCOMP'
DO SIGNIT
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   INDE ON COMP_CODE TO &DR1&F1
   DO SIGNI
   INDE ON COMP_NAME TO &DR1&F11
ENDIF
set exclu off
USE
F1='COMTBL'
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   INDE ON COMP_CODE TO &DR1&F1
ENDIF
set exclu off
USE

F1='MEDIC'
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   INDE ON AREA_CODE+SUB_AREACO+PRO_CODE TO &DR1&F1
ENDIF
set exclu off
USE

F1='SUB_AREA'
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   PACK
   DO SIGNI
   INDE ON AREA_CODE TO &DR1&F1
ENDIF
set exclu off
USE
F1='MEDIC_PR'
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   PACK
   DO SIGNI
   INDE ON AREA_CODE+SUB_AREACO+PRO_CODE TO &DR1&F1
ENDIF
set exclu off
USE
F1='DRUGS'
F11='DRUPRIN'
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   PACK
   DO SIGNI
   INDE ON DRUG_CODE TO &DR1&F1
   DO SIGNI
   INDE ON DRUG_NAME TO &DR1&F11
ENDIF
USE
F1='DISPOS'
F11='DISPRIN'
IF NET_USE("&DR1&F1",.T.,'1',10)
   DO SIGNI
   PACK
   DO SIGNI
   INDE ON DISP_CODE TO &DR1&F1
   DO SIGNI
   INDE ON DISP_NAME TO &DR1&F11
ENDIF
USE
SET DELE ON
RETURN
